home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 8 / FM Towns Free Software Collection 8.iso / fb386 / screen / circle.bas next >
BASIC Source File  |  1994-06-01  |  185b  |  12 lines
  1. 3 CLS
  2. 5 SCREEN@ 0
  3. 8 FOR I=0 TO 50 STEP 1
  4. 10 RANDOMIZE TIME
  5. 20 X=INT(RND*639)+1
  6. 30 Y=INT(RND*479)+1
  7. 35 Z=INT(RND*239)+1
  8. 38 W=INT(RND*16)
  9. 40 CIRCLE(X,Y),Z,%W
  10. 50 NEXT
  11. 60 GOTO 3
  12.